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PREFACE 



ALGOL, algorithmic language, was developed during the 
years of 1958 and 1959 on an international basis. ALGOL has 
been defined as a language which is useful for the descrip- 
tion of processes. These processes can be numerical or log- 
ical. 

The purpose of this manual is intended to provide, for 
the user with a knowledge of ALGOL, some examples of entering 
and executing ALGOL programs on the CDC 3300 or 3500 under OS-3. 
No attempt has been made to teach ALGOL but only to illustrate 
the use of those commands which will assist the ALGOL program- 
mer in the use of ALGOL under OS-3. This is not an all- 
inclusive volume. 

We wish to acknowledge the support of the National Science 
Foundation grant GJ 51, NSF AUFENKAMP 370 Regional Center, which 
aided in the development of this manual. We also thank 
Gilbert Bachelor and Robert Brenne for their contributions to 
this publication. 
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INTRODUCTION 

The digital computer has astonishing capabilities as a tool 
for the experimental scientist. It is immediately evident that 
the use of such a tool requires thorough preparation. The com- 
puter can do nothing that the user in principle could not also 
do; it can only do it faster. 

It is clear that we must write down the set of instructions 
that we want to give to the machine. However, we cannot use 
everyday language and expect the machine to receive instructions 
in the form of a letter or dictation. Instead we must adapt the 
language used to the capabilities of the machine. 

Although the computing machine can be used in more general : 
problems, in what follows we are chiefly concerned with computa- 
tion — more precisely, arithmetic computation. Arithmetic formu- 
las which contain numbers , names denoting yet unknown quantities , 
and functions (such as SIN, COS, and LN) have long been used to 
describe computational rules. Such formulas form a core embedded 
within a sequence of organizational statements which describe the 
flow of the computational process. Thus, for example, the execu- 
tion of parts of the computation can be made to depend on certain 
conditions, or one can prescribe the number of times a part is to 
be repeated. Indeed, the power of the automatic computer comes 
from its ability to make precise decisions at definite places 
during the course of the computation in accordance with preassigned 
criteria. 

Finally, the machine must receive specifications as to type 
and dimension of the initial data entering into the computation 
(input data) and the numerical values given as the result (output 
data) . A complete set of instructions and rules written in such 
a manner that it uniquely defines the course of a computation from 
beginning to end, we will call a program . 

The preparation of the program entails more than due consid- 
eration to the arithmetic and organizational capabilities of the 



machine. The simple-minded intelligence of the computer requires 
that the language used be formed according to stringent rules. The 
present manual explains the standardized formal language ALGOL 
(ALGOrithmic Language) which arose out of an international effort. 
ALGOL programs are largely independent of the properties of indi- 
vidual machines and are conveniently readable by a wide circle of 
interested people. To an ever increasing extent algorithms and 
programs are being written and published in ALGOL. 

In Part One the reader will find introductory examples illus- 
trating the use of ALGOL from a remote Teletype and from batch 
(cards) . 

In P?rt Two the words from the ALGOL language are defined 
and examples are given with each. This section may be of benefit 
to students enrolled in an ALGOL class. Throughout the manual 
references will be made to the manuals listed at the end of the manual 

In Part Three complete examples are given with written explan- 
ations for the procedures used. The comments include explanations 
about the usage of ALGOL and also about the structuring of the 
programs. Each example has been run from the Teletype and appears 
exactly as it did on the printout from the Teletype unit. 

Users interested in additional information should refer to 
the following Computer Center publications: 

ccm-70-7, OS- 3 Editor Manual , Dayton, January, 1970 
ccm-70-8, OS- 3 Reference Manual , Skinner, January, 1970 
CDC, ALGOL Generic Reference Manual 



PART ONE 



I. AN INTRODUCTION TO ALGOL FROM THE TELETYPE 

Since the user may make use of EDIT to create a program, 
an introduction to EDIT will be given, then reference will 
be made to special characters and keys on the Teletype. 
Reference will then be made to the ALGOL language that the 
compiler accepts. A detailed example of entering, editing, 
and running an ALGOL problem is given along with an explana- 
tion of all commands used. 

1. USING EDIT 

The OS- 3 system library contains various routines such as 
the Fortran compiler, the Algol compiler, OSCAR, RADAR, and 
EDIT. 

The EDIT program allows the user to generate, alter, or 
list files. In the EDIT program, a right bracket (]) sign 
indicates that you are in the EDIT command mode. 

All editing operations are performed in a core memory work 
area. Information to be edited must be transferred into this 
area to be modified. Modified information must be copied out 
to a file before it can be used. Binary machine language 
object programs cannot be handled by EDIT. 

All editing operations are performed in a core memory work 
area. Information to be edited must be transferred into this 
area to be modified. Modified information must be copied out 
to a file before it can be used. Binary machine language 
object programs cannot be handled by EDIT. 



Turn Teletype to ON LINE. 

Type a Control A (hold CONTROL key down and type an A) CS f A. 

Type in your Job Number and User Code and push key marked 

RETURN CR . 

The Teletype should, if you typed a valid JOB and USER NUMBER, 

block out your JOB and USER CODE and type the date and pound 

symbol (#) . 

Type the word EDIT and push RETURN CR key. You are now in 

the EDIT command mode. 



ifftftftlltftftft 

JANUARY 19* 1970 10:17 AM TERMINAL 042 

#EDIT 

1 INPUT 

00001 :AL1 

00002: THIS WILL BE AN ADDING PROGRAM. 

00003: 

00004: 'BEGIN* 

00005: 'real* a*b*sum* 

00006: inputc60* •<• •>'* a*b >; 

00007: sum=a+b; 

0008: OUTPUT C 61* •(• * • )• ); 

00009: OUTPUT (61* '(• ' > •* A*B* SUM); 
00010: 'END* 
000118 •E0P" 

00012: 



The Teletype will type a right bracket (]), which indicates it 
is waiting for an EDIT command. You type the command INPUT and 
push the RETURN key CR . The Teletype will print 00001:. 

Within EDIT are many commands, one of which is INPUT. This 
command prepares a temporary storage for information. A 
sequence number followed by a colon is provided for each 
line. For more information on the EDIT mode see OSU Computer 
Center manual ccm-70-7. 



The Algol Compiler will use the first 8 characters preceding 
the first 'BEGIN' as identification. This example will be 
identified by the ALGOL Compiler as ALL 

You are now ready to enter your ALGOL program. If you make 
an error while in EDIT, a backward slash, , (an upper case 
L) will cause the last character or blank to be ignored. An 
@ sign will cause the previous characters and blanks (on the 
same line) to be ignored. 

Example: ABD C is equivalent to ABC. Example: ADB@ABC is 
equivalent to ABC. 

Notice that in line 7 an error occurs. This will be picked 

up later by the compiler, (it should ready SUM:=A+B) . Let 

us assume at this point that you do not know the error exists. 

You are now ready to save the program. The name of the file 
in which the program is saved may be different from the name 
of the program. In this example, the name of the program is 
AL1 and the name of the saved file, on which there exists a 
copy of the program, is ALONE; you can now access this program 
by asking for the file ALONE. 

3 OUT* ALONE 
3 



2. AN EXAMPLE OF EDITING AND RUNNING AN ALGOL PROGRAM 

To compile your program, type ALGOL , I=ALONE , X . 
#ALGOL*I=ALONE>X 



This command is typed in the OS-3 Control Mode (#). The com- 
mand will check your program for errors and send the object 
program to LUN 56, (Logical Unit Number) , 



0S3 ALGOL VO.O AL1 01/19/70 1020 

(01) LINE 0004 PROGRAM BEGINS 

(01) LINE 0010 PROGRAM ENDS 

(01) LINE 0010 SOURCE DECK ENDS 

(03) LINE 0007 DELIMITER 



Four (4) lines will be typed out for all programs. The first 
will be general information: Version, Program Name, Date, Time 
and Page. The second will be the line number where the program 
begins. The third will be where the program ends. The fourth 
will be where the source deck ends. Anything appearing after 
these lines will be error messages. 

If the error in line 7 had not been there you could have loaded 
56 at this time. However, we will go back to EDIT and correct 
the program. The error message tells us a delimiter is wrong 
in line 7. The Search and Replace and List (SARL) command will 
be used. 



#EDIT 

3FIN*AL0NE 

3SARL*7**/=/*/:=/ 
0007: SUM:=A+B; 

3 OUT* ALONE 
3 

The program has been corrected and we are ready to again call 
the ALGOL Compiler; however, first rewind or release LUN 56. 

This time the compiler will be called with another parameter, L 
This will cause the program to be listed. 

# RELEASE, 56 
#ALG0L*I=AL0NE*X*L 



0S3 ALGOL VO.O AL1 01/19/70 1022 

AL1 
THIS WILL BE AN ADDING PROGRAM. 

•BEGIN' 

•REAL' A*B*SUM5 

INPUT (60* '(• ') f * A*B); 

sum:=a+b; 

OUTPUT < 61* •< ' * ') • >; 

OUTPUT (61* •(' •)•* A*B*SUM); 
10** 'END* 

•EOP' 

(01) LINE 0004 PROGRAM BEGINS 

(01) LINE 0010 PROGRAM ENDS 

(01) LINE 0010 SOURCE DECK ENDS 



You are now ready to load the object program. Type LOAD, 56, 
then type RUN followed by a carriage return (CR) and a Line 
Feed (LF) . 



# LOAD* 5 6 

RUN 

RUN 



The computer will now type standard channel information. 
60 is the standard unit for TTY input; 61 is the standard unit 
for TTY output. If the standard channels are all your pro- 
gram requires, type starting in column one CHANNEL, END followed 
by a (CR) and a (LF) . 

CHANNEL* 60=LU60*P80 
CHANNEL* 61 =LU61*P1 3 6* PP60 
CHANNEL* END (CR) (LF) 
CHANNEL* END 

The computer will now wait for you to enter the values for 
variables A and B (a result of the statement in line 6 of the 
program) . End each record with a CCR) and (LF) . 

12.0 (CR) (LF) 
13-0 (CR) (LF) 



The computer will now type out the variable values indicated 
in line 9 of the program. 

+ 1 -SOOOOOOOO'+OOl +1.300000000 f +001 +2.500000000 , +001 



END OF ALGOL RUN 

# LOGOFF 

TIME 7.226 SECONDS MFBLKS 1 COST $0*83 



Since this program was saved in the previous example with the 
command ] OUT, ALONE (see page 5 ) the user can run the program 
at any time with the command 

# ALGOL, I=AL0NE,X. 



JANUARY 19* 1970 10:26 AM TERMINAL 042 
# ALGOL* I =AL0NE* X 



0S3 ALGOL VO.O 

(01) LINE 0004 
(01) LINE 0010 
(01) LINE 0010 



AL1 

PROGRAM BEGINS 
PROGRAM ENDS 
SOURCE DECK ENDS 



01/19/70 



1026 



# LOAD* 5 6 
RUN 

RUN 



CHANNEL* 6l=LU61*P136*PP60 
CHANNEL* END 

CHANNEL* END 



12 
13 



+1.200000000 f +001 +1.300000000 , +001 +2.500000000 '+001 



END OF ALGOL RUN 



# LOGOFF 

TIME 4.900 SECONDS MFBLKS 1 COST $0*62 



3. SAVING AND RUNNING A BINARY VERSION OF A PROGRAM 



The program is compiled as before but before loading 56, the 
compiler (object) program on 56 is saved with the command 

SAVE , 5 6=BINAL0NE . 



Illlflllllll 

JANUARY 19* 1970 10:29 AM TERMINAL 042 



# ALGOL* I =AL0NE* X=5 6 



0S3 ALGOL 


vo.o 


AL1 01/19/70 


(01) 


LINE 0004 


PROGRAM BEGINS 


(01) 


LINE 0010 


PROGRAM ENDS 


(01) 


LINE 0010 


SOURCE DECK ENDS 



1029 



# SAVE* 56=BINAL0NE 

#L0G0FF 

TIME 1 .848 SECONDS 



MFBLKS 1 COST $0*20 



Since the command # ALGOL , I=NAME , X automatically equips the 
ALGOL library and since we will not use this command with a 
binary program we must equip the library, *ALGLIB to LUN 63. 
The rest of the run is the same as before. 
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IHIUIHI1I 

JANUARY 19* 1970 10:32 AM TERMINAL 042 

# EQUIP* 63=*AL6LIB 
#L0AD*8INAL0NE 

RUN 
RUN 



CHANNEL* 60=LU60*P80 
CHANNEL* 61=LU61*P136*PP60 

CHANNEL* END 
4325.7896 .97654325 



+4.325789600 '+003 +9* 765432500 '-001 +4. 32 6766143 '+003 



END OF ALGOL RUN 

#L0G0FF 

TIME 2.140 SECONDS MFBLKS COST $0.29 
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4. MAKING A PAPER TAPE OF A PROGRAM ON A SAVED FILE 



The command, TTP, will generate several inches automatically for 
the beginning and the end of the tape. After typing TTP make 
sure the dial is turned to KT (keyboard and tape).* This com- 
mand will automatically place a control shift R [TAPE] and a 
control shift T on the tape. 



m A££MttSftft# 

JANUARY 19* 1970 1013 7 AM TERMINAL 042 
#EDIT 

3 FIN* ALONE 

3 TTP 
AL1 
THIS WILL BE AN ADDING PROGRAM* 

•BEGIN • 

' f REAL' A*B#SUM; 

inputc60* •<' •)•# a#b>; 

sum*»a+b; 

output<6i# •( • * •> • >; 

0UTPUTC61* f (' ')'/A*BiSUM); 
•END' 

•E0P f 

3 

# LOGOFF 

TIME 0*421 SECONDS MFBLKS COST $0*06 



* On a TTY 33 just punch and keyboard have to be turned on, 
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II. AN INTRODUCTION TO ALGOL FROM BATCH 



A batch job consists of a deck of cards submitted by the user 
to the Computer Center. The computer operator places this 
deck in the card reader, along with other job decks. OS-3 
reads in the decks and processes each job in turn. The user 
may refer to the Computer Center User's Manual , cc-69-10, 
for additional information. 

The following are sample control cards and deck structures for 
the batch operation of ALGOL programs. 
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1. TO RUN AN ALGOL SOURCE DECK 



LOGOFF 



^ 



77 
88 



/" 



DATA CARDS 



:hannel , END 



RUN 



A 



LOAD, 56 



/ 



SOURCE DECK 



7 ALGOL, L,X 

8 

/7 TIME=10 

' 8 



/T_ JOB, 75537, LYNN SAVE FOR M 
/8 
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2. TO RUN AN ALGOL PROGRAM THAT IS ON FILE 



7 LOGOFF 



21 
88 



CHANNEL , END 



RUN 



/l LOAD, 56 
/ 8 



/\_ ALGOL,! 
8 



DATA CARDS 



OSROOT , L , X 



7 TIME=10 
8 



ZL 



JOB, 75537, LYNN SAVE FOR M 



8 



15 



3. TO PUNCH A CARD DECK FROM A PROGRAM ON FILE 



A 


LOGOFF 










fl COPY,I=SROOT,Q=62 

r 
















/T LABEL , 62/MARY 




















/l JOB,75537,LYNN SAVE FOR M 
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4. TO COPY A SOURCE DECK ONTO A SAVED FILE 



/ 



7 LOGOFF 
8 



77 
88 



SOURCE DECK 



COPY,0=SROOT 



7 JOB, 75537, LYNN SAVE FOR M 
8 



17 



PART TWO 
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I ELEMENTS OF SIMPLE PROGRAM 

1. ILLUSTRATION ON USE OF 'BEGIN' , ' COMMENT ',' END ' , and ' EOP ' 

(a) 

•BEGIN* (b) 

•COMMENT' (c) 

•END' (d) 

•EOP' (e) 

'BEGIN', 'END*, 'EOP' and 'COMMENT' have the following definitions 
and/or equivalencies: 

(a) Any words before the first 'BEGIN' are comment. However, 
the first 8 characters are designated to be the identi- 
fication of the program. 

(b) 'BEGIN' - The first executable symbol of an ALGOL program, 
a Block or a Compound Statement. 'BEGIN' 'COMMENT' (LIST) 
is equivalent to 'BEGIN', where (LIST) is any sequence 
not containing a ; . 

(c) 'COMMENT' - This word is used to indicate that an explana- 
tory comment follows. 

; 'COMMENT' (LIST) is equivalent to ;, where (LIST) is any 
sequence not containing a ; . 

(d) 'END' - This indicates the physical end to a compound 
statement. Each 'END' corresponds to each 'BEGIN'. 
'END' (LIST) is equivalent to 'END', where (LIST) is any 
sequence not containing ' END ' or ; or ' ELSE ' . 

(e) 'EOP' - indication of end of a program (columns 10-14) 
following the last 'END'. 
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2. SAMPLE PROGRAM 



This program illustrates the source deck of a simple program, 
#ALGOL*I=STRU*X*L 



0S3 ALGOL VO*G SIMPLE . 02/20/70 1412 PAGE 1 
SIMPLE THE NAME OF THIS PROGRAM IS SIMPLE 
'BEGIN* *REAL # A*B*SUM; 

•COMMENT * THIS PROGRAM WILL READ 2 REAL NUMBERS* 
ADD THEM AND PRINT OUT THE SUM! 
INPUTC60**C *>**A>B>Jt 

•COMMENT 1 THE ABOVE INPUT STATEMENT WITH FORMAT STRING 
•(• •)• IS EQUIVALENT TO INREALC60*A> AND 
INREALC60*B> WHICH WILL FREEFORM INPUT A AND BS 
SUM?=A+BJ 
10** OUTPUT* 61 **<***>•> J 

'COMMENT* THIS WILL GIVE A PAGE EJECT* 
OUTREAL C 6 1 * SUM > I 
0UTPUT<61* , c , /»>*>; 
•COMMENT* / MEANS NEW LIKE* 



•END* 

•EOP* 
€01 > LINE 0002 
C01> LINE 0017 
C01> LINE 0017 



# LOAD* 5 6 

RUN 
RUN 



PROGRAM BEGINS 
PROGRAM ENDS 
SOURCE DECK ENDS 



CHANNEL* 60 =LU 60 *P80 
CHANNEL* 61 =LU61 * PI 3 6* PP 60 

CHANNEL* END 

CHANNEL* END 

£•0 3*456 



+5.456000000 



END OF ALGOL RUN 

# 
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II DECLARATIONS 

All identifiers of a program, except standard functions and labels 
must be declared by one of the following* 

' OWN ' , ' BOOLEAN ' , ' INTEGER ' , ' REAL ' , ' ARRAY ' , ' SWITCH ' , * PROCEDURE ' 

A declaration of an identifier must appear after the first 'BEGIN' of 
a block and is only valid for one block. For example, observe the 
following program: 



•BEGIN* 

•INTEGER' X; 'REAL' YJ 

•BEGIN' 1 

' INTEGER 'Y; Block 

•END'; J 

•END' 

•EOP' 



Main 



(a) 
(b) 



. (c) 




X = integer, Y = real 
X = integer, Y - integer 
X as integer, Y = real 
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1 . TYPE DECLARATIONS., _. 

'INTEGER' 

All integers are of this type. They may be positive or negative 

integer values including zero. 
Examp le : ' INTEGER ' P , Q , S ; 

•BOOLEAN' 

The BOOLEAN declarator. 'BOOLEAN 1 declared variables may only 
assume the values 'TRUE' and 'FALSE'. (For BOOLEAN FORMAT, see 
format description page 56. 
Example: 'BOOLEAN' C; 

' OWN ' 

, j--t .j.4^^ *«,,, k^ m ar y«/3 nri-i-H *-h*» additional declarator 'OWN' 

The effect is that upon re-entry into the block containing OWN 
quantities/ they will remain the same as their last values at 
the last exit. However, OWN values are initially defined as 
zero at their first entry in the block. 

AN EXAMPLE ON USE OF ' OWN ' : 



0¥N EXAM 
•BEGIN* 

• INTEGER* A* B* 1 1 . 

•F0R'I:=1 'STEP' 1 , UNTIL*3 'DO' 
•BEGIN 1 At*U 'B:=2J 
•BEGIN' 



•OW^" INTEGER* A; 
A1=A+U B8=B+U 



mjTptrrc6i> *c , *< , a**> , *zdbbb* *(*b=') *jZd*>**a*b>j 



0UTPUTC61* *< V*')! 
FD* 
•END* I 



•END* 

*EOP* 
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Intermediate Analysis of the Program at Points (a) and (b 



1=1 



1=2 



1=3 





® 


© 


® 


© 


® j © 


A 


**o 


1 


1 


2 


2 j 3 


B 


2 


3 


2 


3 


2 


3 



** A is an own value, it is initially defined as zero in the block 
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2. ARRAY DECLARATIONS 

An array declaration does the following: 

* Declares one or several subscripted variables (arrays). 

* Gives dimension of the arrays. 

* Gives the bounds of the subscripts. 

* Declares the type of the variable. 
It is in the form of: 

A[L 1 :U 1 ,L 2 :U 2 ,L 3 :U 3 , . . .] 
where 

L 1 ,L 2 ,L 3 ,.. . , are the lower bounds, and 

U 1' U 2 ,U 3'" # * are the upper bounds - 
Both L and U can be any arithmetic expression 

Limitation: A is defined if and only if U^ ^_ L.^ for all i 



Example : 



•BEGIN 1 

'REAL' ! ARRAY'B[2:3 f 4:5] ; 

* INTEGER f • ARRAY ' IA [ • IF ' C< • THEN ' 2 ■ ELSE • 1 : 3 ] ? 



NOTE: C has to be defined before declaration is processed 
during run time, and it. must be declared in higher 
block. 



Analysis of Example 



Array IA 



* Type : Integer 

* Dimension: 1 

* L, = 2 if C < 

L 1 = 1 if C >0 



\3 1 = 3 
U 1 = 3 



Array B 



* Type: Real 

* Dimension: 2 



L x = 2, 

L 2 = 4, 



U l= 3 
U 2 = 5 



NOTE: If [ and ] are not presented on the keyboard, use 
(/ and /) instead. 
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3. SWITCH DECLARATIONS AND CALLING 



A SWITCH declaration defines the set of values of the corre- 
sponding switch designators. With each of the designational 
expressions there is associated a positive integer obtained by 
counting the items in the list from left to right. 

EXAMPLE : 

'SWITCH' TEST: = SI, S2, S3, S4; where TEST is the switch 
identifier; SI, S2, S3, and S4 are designational expres- 
sions with integer values 1, 2, 3, and 4 associated with 
them respectively. 

i.e. TEST [1] = SI; TEST [2] = S2; 
TEST [3] = S3; TEST [4] = S4; 
the corresponding calling statement should be: GO TO TEST [I] 
where I is any arithmetic expression of integer value. 

SAMPLE PROGRAM ON THE USE OF SWITCH 

Program is to find angle and compute cube root of a complex 
number. Coordinates in the complex plane are input as X and Y 

SWITCH in this program is used to branch on 9 possible con- 
ditions 

X < 0, Y < 

X < 0, Y = 

X < 0, Y > 

etc. 

CO if X=0, Y=0 

&C+IY =LR 3 (cos j + I sin |.) otherwise 



R = Vx 2 +Y 2 



G= { 



fTT+TAN (Y/X) X < 

TAN-1(Y/X) X > 

"*/ 2 X = 0, Y < 

*/ 2 X = 0, Y > 
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ALGOL* I=SVITCH*X*L 



OS3 ALGOL VO.O SWITCH 02/20/70 1422 PAGE 

SWITCH TO FIND CURE HOOT OF A COMPLEX NUMBER 

•BEGIN* 

, REAL'X;»Y*U.»V*THETA*PI*R; 

•SWITCH* ANGLE:=S1*S1*S1*S2*S3*S4*S5*S5*S5; 

E0F(60*END); 

Pl:=3. 141592 65; 

IN: INPUT (60* 'C ' ') 'iXiY)J 

•GOTO 1 ANGLEC3*SIGN(X) + SIGN(Y) + 5:i; 
Si: THETAS=PI+ARCTAN(Y/X>5 
10** , 60T0'S6; 

S2: THETA:=-PI/2i 

•GOTO'Se; 
S3: U:=0; V:=0; 

•goto'out; 

S4: THETA:=PI/2J 

, G0T0 , S6; 
S5: THETA:=ARCTAN(Y/X>5 
S6: R:=(X*X+Y*Y)t (1/6); 
II : =R*C05 (THETA/3 ) ; 
PO** V:=R*SIN(THETA/3>; 

OUT: OUTPUT ( 61 * V ('CUBE ROOT OF » ) '* N, N* ' ( f *I ' ) ' ' ) 

x*y); 

OUTPUT C 61 *■' (•/•>*) 5 

0UTPUT(61* *( "( ' IS 'JSNiNi 

output(6i* , (V// , > •>; 
•goto* in; 

END : * END • ; 

•eop 1 
(01) line 0002 program begins 
(01) line 0028 program ends 

(01) LINE 0028 SOURCE DECK ENDS 

# LOAD* 5 6 

RUN 
RUN 



CHANNEL* 60 =LU 60 *P 80 
CHANNEL* 61 =LU61 * PI 3 6* PP60 
CHANNEL* END 

CHANNEL* END 
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5 5 ... - - 

CUBE ROOT OF +5-0G0000Q0G * OOO +5-000000000 ' 000 *I 
IS +1-853981710' 000 +4-967729021 '-001 *I 



7 

CUBE ROOT OF +7-000000000 ' 000 +0-000000000 '+000 *I 
IS +1-912931183' 000 +0-000000000 '+000 *I 



4 -8 

CUBE ROOT OF +4-000000000 * 000 -8-000000000 ' 000 *I 
IS +1-936020528' 000 -7-48794962? '-001 *I 



-6 -3 

CUBE ROOT OF -6-000000000' 000 -3-000000000* 000 *I 
IS +6-803253753 '-001 +1-758991384' 000 *I 



-17 

CUBE ROOT OF -1 -OOQOOOOOO ' 000 +7-000000000' 000 *I 
IS +1-61499995?' 000 +1-037210989' 000 *I 



-10 -10 

CUBE ROOT OF - 1 -000000000 '+001 -1 • 000000000 '+001 *I 
IS +6-258946390 '-001 +2- 335870582 ' 000 *I 



4 

CUBE ROOT OF +0-000000000 '+000 +4-000000000' 000 *I 
IS +1-37472963?' 000 +7- 937005252 '-001 *I 





CUBE ROOT OF +0-000000000 '+000 +0-000000000 '+000 *I 
IS +0-000000000 '+000 +0-000000000 '+000 *I 



-2-7 

CUBE ROOT OF +0-000000000 '+000 -2-700000000' 000 *I 
IS +1-205920154' 000 -6- 962383244 '-001 *I 
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PROCEDURE DECLARATIONS AND CALLING 



PROCEDURE .uECLARATIOi. 



A procedure declaration serves to define the procedure associated 
with a procedure identifier. The principal constituent of a pro- 
cedure declaration is a statement, the procedure body, which, 
through the use of procedure statements and/or function designa- 
tors may be activated from other parts of the block where the pro- 
cedure declaration appears. There are 2 types of procedures, 
namely, function-type procedure and non- function- type procedure. 

EXAMPLE 1: FUNCTION-TYPE PROCEDURE 

(C) 
( a ) ' REAL ' ' PROCEDURE ' AVERAGE ( LOWER , UPPER ) ; 

(e) 'VALUE ' LOWER,UPPER; 
• REAL ' LOWER , UPPER ; 
1 BEGIN ' 

(f) AVERAGE: = (LOWER + UPPER )/2; 
'ENDS- 
EXAMPLE 2: NON-FUNCTION-TYPE PROCEDURE 

(d) 
(b) ' PROCEDURE ' TRANSPOSE (A) ORDER: (N) ; 

•VALUE'N; 

'ARRAY 'A; 

' INTEGER ' N ; 

' BEGIN ' ' REAL ' TEMP ; 

(g) 'INTEGER* I, J; 

•FOR' I: = 1' STEP' 1 ' UNTIL' N' DO' 
'FOR' J: = 1+1' STEP' l 1 UNTIL' N' DO 1 
'BEGIN' 

TEMP: = A [I, J] ; 
A[I,J] : = A[J,I]; 
A[J,I] : = TEMP; 
1 END ' ; 
'END 'TRANSPOSE ; 
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EXPLANATION 

(a) For function-type procedure, the procedure identifier must 
be declared through the appearance of a type declaration as 
the very first symbol of the procedure declaration. Type of 
procedure can be 'INTEGER' or 'REAL' or 'BOOLEAN'. 

(b) No type declaration of procedure is needed for non-function- 
type procedure. 

(c) AVERAGE is the procedure identifier, whereas (LOWER, UPPER) 
constitutes the formal parameter list. When no parameters 
are to be passed, the list is empty. Formal parameters are 
separated by commas, the parameter delimiters. 

(d) TRANSPOSE (A) ORDER: (N) is equivalent to TRANSPOSE (A, N) , 
where TRANSPOSE is the procedure identifier, A and N are 
formal parameters. ) letter string: ( is another representa- 
tion of parameter delimiter. 

(e) Value and specification part for formal parameters can be 
empty or of the following form: 

Value part: 'VALUE' identifier list 

Specification part: it has to follow the value part and 

must be supplied for all formal parameters in CDC ALGOL. 

(f) The procedure body can be a block, a compound statement or 

a simple statement. For function- type procedure declaration, 
one or more assignment statements with the procedure identi- 
fier in a left part must appear in the procedure body. 

(g) For non-function- type procedure declaration, the procedure 
identifier is not to appear as a left part of assignment 
statement but may occur as procedure statement calling 
itself. (Recursively) 

PROCEDURE CALLING 

The actual parameter list of the procedure statement must have 
the same number of entries as the formal parameter list of the 
procedure declaration heading. 
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EXAMPLE 3: FUNCTION TYPE PROCEDURE CALLING 
' REAL ' X,i,S; 



(a) S: = S+AVERAGE(X,Y) ; 

EXAMPLE 4: NON-FUNCTION TYPE PROCEDURE CALLING 

•REAL' 'ARRAY 1 B[l : 20 , 1: 20] ; 
'INTEGER 1 M; 

(b) TRANSPOSE (B, M) ; 



EXPLANATION 

(a) Function- type procedure can be called in an expression, or 
by a procedure statement. 

(b) Non-function- type procedure is called by the procedure 
statement itself. A procedure statement is a procedure 
identifier followed by the actual parameter list. 
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5. SAMPLE PROGRAM (on declaration) 



Write a procedure to produce the roots of a quadratic equation 
and a switch to determine the nature of the roots. The main 
program is used to read the input, call the sub-program, and 
produce the output. 



quadratic equations ax + bx + c 



= 



or 





= 


-b 


+ V b 2- 


-4ac 


r l 


-b 


2a 






-Vb 2 - 


-4ac 


r 2 

r l 


R l 


2a 

+ R 2 





r 2 - R 1 - R 2 



where 



R. 



R, 



2a 



4 



+b -4ac 



2a 



CODE NATURE OF THE ROOTS 

1 2 unequal imaginary roots 

2 2 equal real roots 

3 2 unequal real roots 

4 1 real root = -r- 

D 



CONDITION 
b 2 -4ac < 
b 2 -4ac = 
b2-4ac > 
a = 
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#ALGOL*I=DFCLAR*X*L 



0S3 ALGOL VO-0 DECLARAT 02/24/70 1126 PAGE 
DECLARATION AND PROCEDURE 
•BEGIN' 

•REAL'D*E*F*P1*P2; 
* INTEGER* ICODE; 

•SWITCH* cod:=aa*bb*cc*dd; 

•PROCEDURE* R00TCA#B*C*R1*R2*ID>; 

'VALUE *A*8*C; 
•REAL t Rl*R2*A>B*C; 
•INTEGER 'ID; 
10** *BEGIN* 

•real'det; 

•IF' A=0 'THEN' 'GO TO f Li; 
DET:=Bt2-4*A*Ci 
R1:=-B/C2*A>; 
R2:=SQRTCABSCDET>)/<2*A); 
•IF* DET>0 •THEN' ID J =3 'ELSE* 
•IF'DET-O 'THEN' IDt=2 " 'ELSE* ID5=i; 

•goto 'end; 

Ll: ID:»45 
20** ri:=-c/b; 

END: 'END *R00TJ 
START: Pl:=Oi P2:=0; ICODE*=0; 

input (60* *( ' ') **d*e*f); 

qutpuk 61* •(*//•< 'coeff of quad are ' * ' ./ • ) ' > 5 

output (61* •( • •> sd#e*f); 

output<61* '< •//•>•>; 

E0FC60*END>; 

ROOTCDjE* F* PI *P2* ICODE); 
•GOTO 1 C0DCIC0DE35 
30** AA« OUTPUT < 61. j- f < ,, ( , 2 UNEQUAL IMAG. ROOTS ' )">*) i 
0UTPUT<61* , <V , >*)> 

OUTPUT C 61* *<**<* '* **N* '< '+I* f > ''N') **P1*P2)1 
OUTPUT (61* '< */•>•>; 

0UTPUTC61* *< » *C 'AND *> SN* '< *-I*\> **N') SP1*P2)1 
OUTPUT < 61* '('//') •); 

•GOTO 'start; 
BB: 0UTPUTC61* •( ,, ( , 2 EQUAL REAL ROOTS •>••>' >; 
0UTPUT<61* V */»5 •>; 
0UTPUTC61* , C t, C , )SS , ) , »P1)J... 
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40** 



50** 



(01 ) 


(01) 


(01) 


# LOAD* 56 


RUN 


RUN 



CC: 



OUTPUT* 61/1: V /^ j » ) i 

•goto 'start; 

output (61* *( • '( '2 unequal 
0UTPUT(61* '( •/»> •>; 



OUTPUT (61 



i • 



•> SNi '( 



AND *) 



N') •#pi+P2*Pi-P2>; 
0UTPUf(61* '( •//•> •>; 
•goto* start; 

DDS 0UTPUT(61* f ( ■ '( *1 REAL 
OUTPUT (61* '( '/») •); 
0UTPUT(61* •(» '( * 
0UTPUT(61* '( *//•) •>; 

•goto •start; 

END: •END' 
'EOP • 
LINE 0002 PROGRAM BEGINS 
LINE 0053 PROGRAM ENDS 
LINE 0053 SOURCE DECK ENDS 



•) SN') **P1) 



CHANNEL* 60 =LU 60 *P 80 
CHANNEL* 61 =LU61 * P 1 3 6* PP60 

CHANNEL* END 

CHANNEL* END 

2-6 
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COEFF OF QUAD ARE 

+ 0*000000000 '+000 +2.000000000' 000 -6.000000000 000 

1 REAL ROOT 

+3.000000000' 000 

1 2 1 



COEFF OF QUAD ARE 

+1.000000000' 000 +2-000000000' 000 +1.000000000' 000 

2 EQUAL REAL ROOTS 

-1-000000000' 000 

1 -5 4 



+1.000000000' 000 -5.000000000' 000 +4.000000000' 000 

2 UNEQUAL REAL ROOTS 

+4-000000000' 000 AND +1.000000000* 000 

4 -3 



C OE. J OF QUAD ARE 

+4.000000000' 000 -3.000000000' 000 +1.000000000' 000 

2 UNEQUAL IMAG. ROOTS 

+3.750000000 '-001 +I*+3. 3071,89139 '-001 
AND +3. 750000000 '-001 -I*+3.307189139'-001 
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III. OPERATORS AND VALUES 



I. RELATIONAL OPERATOR 



' EQUAL ' 


. = 


1 GREATER ' 


; > 


'LESS' 


: < 


'NOT EQUAL' : 


? 


'NOT GREATER' 


, < 


'NOT LESS' : 


> 



Relational operators are used to connect simple arithmetic 
expressions in Boolean expressions. tt 



2. 



LOGICAL OPERATOR 



'EQUIV 


. = 


(equivalent) 


' IMPL ' 


■ 




'OR' . 


V 


(inclusive or) 


'AND' . 


A 




'NOT 1 : 


T 





3. ARITHMETIC OPERATOR 



+ : 


ADD 


- : 


SUBTRACT 


* : 


MULTIPLY 


/ : 


DIVIDE 


* POWER ' 




or + : 


EXPONENTIAL 



EXAMPLE: C:= SQRT (At 2 + B+2); 



tt Arithmetic expressions (IV. 2) 
Boolean expressions (IV. 3) 
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4. LOGICAL VALUE 

'TRUE 1 , 'FALSE 1 

NOTE: Logical values cannot be used in place of integers, 
or vice-versa. 

5. SAMPLE PROGRAM ON OPERATORS 



# AL GOL* I =OPERAT * X* L 



0S3 



OPERATOR 



02/24/70 



10** 



ALGOL VQ.O 
OPERATOR 
•BEGIN* 'BOOLEAN 'QjRjP'ZjW; 

•reaL'x*y; 

X:=3*463; 
Y:=3*6J 
q : =x=YJ 

•comment 1 q 
r:=x<y; 

•comment' r 
z:=q'and'r; 

•comment* z 

Wi=Q'0R'Rl 
•COMMENT* 
P:=Z'AND'f; . 
•COMMENT' P 
OUTPUT ( 61 i '< 
OUTPUT ( 61* * (*//')') ; 
0UTPUT(6l* f C"( T W"IS ')S5F') Sfc)5 
OUTPUT < 6l#* C* //') *>; 

0UTPUTC61>'<"C*W AND Z IS MSSF') ';P)i 
OUTPUT C61 > •<•//') •); 
•END' 

•EOP' 
(01) LINE 0002 " PROGRAM BEGINS 
COl) LINE 0022 PROGRAM ENDS 
COD LINE 0022 SOURCE DECK ENDS 
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20** 



is false; 

is true; 

is false; 

w is true; 

is false; 
••< »z is 'jssf') '*z>; 



# LOAD* 5 6 

RUN 

RUN 
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CHANNEL* 6Q=LU6Q* P80 
CHANNEL* 61=LU6l*P136#PP 60 
C HANNEL* END 

CHANNEL* END 



Z IS F 
W IS T 
W AND Z IS F 



END OF ALGOL RUN 
# 
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IV. EXPRESSIONS 

1. FUNCTION DESIGNATORS 

Function designator is a procedure identifier followed by actual 
parameter list (actual parameter list can be empty.) It defines 
single numerical or logical values. There are also standard 
functions. For example; SIN(X)tt. 

EXAMPLES : 

COS (A+B) 

AVERAGE (N,X,Y) or AVERAGE (N) HIGH: (X) LOW: (Y) 

2. ARITHMETIC EXPRESSIONS (Including IF clause) 



EXAMPLES:- 

1) 'IF' A < 'THEN' B+C 

1 ELSE ' * IF " A = ' THEN ' B/C 
•ELSE' D 

2) W * U - V + 2 



PRECEDENCE OF OPERATORS 

i) + 

ii) '*,/ 

iii) + ,-' 



3. BOOLEAN EXPRESSION 



EXAMPLES: 

1) X = -2 

2) Q=-»AABVc 

tf See section IV. 5 for standard functions list 
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PRECEDENCE OF OPERATORS 

i) Arithmetic operators 

ii) <,<_,=, _>, > , 7* 

iii) —i 

iv) A 

v) v 

vi) D 

vii) = 

4. DESIGNATIONAL EXPRESSIONS 



Labels and switch designators 



EXAMPLE : 

COD[ICODE] 

ANGLE [3*SIGN(X) + SIGN (Y) + 5] 

LI 



5. STANDARD FUNCTIONS 



ABS(E): absolute value of the expression E 
SIGN(E) : +1 for E > 
for E = 
-1 for E < 
SQRT(E): square root of E 
SIN(E) : sine of E 
COS(E) : cosine of E 
ARCTAN(E): arctangent of E 
LN(E): natural logarithm of E 
EXP(E): exponential function of E 

ENTIER(E): largest integer value not greater than the value 
of E 
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V. STATEMENTS 



COMPOUND STATEMENTS 



A sequence of statements enclosed by 'BEGIN' and 'END 



SYNTAX: 

'BEGIN' S; S;...S; S 'END' 
(Where S stands for statements, it can be again a complete 
statement or block.) 



EXAMPLE : 

'BEGIN' 

SUM: = 0; 

'FOR' I: = 1 'STEP' 1 'UNTIL' N 'DO' 

SUM: = SUM + A [I] 
'END' 



2. BLOCK 

A sequence of declarations followed by a sequence of statements 
and enclosed between ' BEGIN ' and ' END ' . 

NOTE: Every declaration that appears in a block is valid only 
in that block. 

SYNTAX: 

•BEGIN 1 D; D; ... D; S; S; ... S 'END* 
Where S = statements and D = declarations. 
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Example of Block Structure 



# ALGOL* I =BL0CK* X* L 



0S3 ALGOL VO.O BLOCK 02/24/70 1137 PAGE 1 

BLOCK 
•BEGIN* 'INTEGERS* J; 

INREAL(60* I); INREALC 60* J) J 
OUTPUT C 61* * C '//•) •); 

0UTPUTC61* *C "CI IS , ) , *+ZZD* , C f J IS • ) ■* + ZZD • ) S I* J) ', 
BLOCK: •BEGIN' 

• INTEGER 'K* 
•COMMENT' THIS IS A BLOCK WHICH 

WILL INTERCHANGE TWO VALUES; 
10** k:-i; 

I:=J* 
J:=K* 
•END 'BLOCK; 

output (6i* •(•//•)•>; 

OUTPUT C 61 * *(•'(• EXCHAN GE I AMD J ' )'•)•) ; 

OUTPUT (61* *( V/») •>; 

OUTPUT (61* •( •'< 'I IS •OS+ZZDj'C J IS ' > '* +ZZD ■ > '* I* J) ; 

•END' 

•EOP ' 
(01) LIME 0002 PROGRAM BEGINS 
(01) LINE 0018 PROGRAM ENDS 
(01) LINE 0018 SOURCE DECK ENDS 

#L0AD*56 

RUN 

R UN 
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CHANNEL* 60=LU60*P80 
CHANNEL* 61=LU61*P13 6*PP60 

CHANNEL* END 

CHANNEL* END 

2 -5 



I IS +2 J IS -5 

EXCHANGE I AND J 

I IS -5 J IS +2 



END OF ALGOL RUN 
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3. ASSIGNMENT STATEMENTS 



SYNTAX : 



i £. . • -.-, Arithmetic expressiont 

left part variable: = „ ^ WJ - V - ca F j.cooj.wi*i 

or Boolean expressiontt 
where left part variable is a variable or a procedure identifier. 
Any number of left part variables may appear at the left part of 
assignment statement. 

EXAMPLES: 

S: = N: = S+N; 
(If S is 2 and N is 6, then S and N will be of the value 8 after 
the assignment statement.) 
A: = B+C - B/C ; 
W: = U A V; 



4. GO TO STATEMENT 
SYNTAX : 

4* *h + 

'GO TO 1 designational expression; 
EXAMPLE : 



'GO TO' COD[ICODE] ; 

'GO TO' ANGLE[3*SIGN(X) + SIGN (Y) + 5] ; 

'GO TO' LI; 



5. DUMMY STATEMENT 



A dummy statement executes no operation. It is empty and may 
serve to place a label. 



t Arithmetic Expressions (IV. 2) 
tt Boolean Expressions (IV. 3) 
ttt Designational Expressions (IV. 4) 
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EXAMPLE : 

START : ' BEGIN ' 



END ' END ' 
6. CONDITIONAL AND UNCONDITIONAL STATEMENTS 

CONDITIONAL STATEMENT: LEGAL STRUCTURE 

(a) 'IF' Bl 'THEN' SI; 

(b) 'IF' Bl 'THEN' SI 'ELSE' S2; 

(c) 'IF* Bl 'THEN' SI 'ELSE' 'IF' B2 'THEN' S2 

Idt ri? I oO. o A . 

(d) 'IF' 'IF' 'IF' Bl 

'THEN' B2 'ELSE' B3 
'THEN' B4 'ELSE' B5 
•THEN 1 SI 'ELSE* S2; 
Bl, B2, B3, B4, B5 are Boolean Expressions (IV. 3) 
SI, S2, S3 are unconditional statements. S4 is the 
statement following the complete conditional statement 

UNCONDITIONAL STATEMENTS 

(a) Basic statements: 

*Assignment statements (V.3) 

*G0 TO statements (V.4) 

*Dummy statements (V.5) 

*Procedure statements (V.7 or I I. 4) 

(b) Compound statements (V.l) 

(c) Block (V.2) 
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SIMPLE EXAMPLE OF CONDITIONAL STATEMENTS 

'IF 1 A < B 'THEN 1 S: = B + 2 
'ELSE' 'GO TO' LI; 

'IF': Beginning of a conditional statement. 
'THEN': This word ends the IF clause and precedes the 

true alternative in a conditional statement. 
'ELSE': This word follows the true alternative and precedes 
the false alternative. 
'GO TO': Transfer control to the destination. 

No GO TO statement can lead from outside into a block 



EXECUTION OF CONDITIONAL STATEMENT 

Conditional statement causes certain statements to be executed 
or skipped depending on the running values of specified Boolean 
expressions. 

Bl or B2 is true 

■IF 1 Bl 'THEN* SI 'ELSE" IF 1 B2 'THEN' S2 'ELSE* S3; S4 

* , * 4t «$> 

Bl is false B2 is false 

Execution of Si, S2, S3, S4 are as follows: 

(1) True Bl: SI; S4; 

(2) False Bl , True B2 : S2; S4; 

(3) False Bl, False B2: S3; S4; 
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PROGRAM ON ILLUSTRATION OF IF CLAUSE 



# ALGOL* I=CQNDIT.»X*L 



OS3 ALGOL VO.O CONDITIO 02/24/70 
CONDITIONAL STATEMENT - IF CLAUSE 
THIS PROGRAM WILL CALCULATE FACTORIAL 

FCN3=N! =N*CN-1>*CN-2>*"»*2*1 

WHERE N IS LESS THAN 10 

•BEGIN ' ' INTEGER » 'ARRAY ' FC 1 * 9 3 % 
•INTEGER'S* I 5 
START: OUTPUTC 61* ' C "< 'ENTER N') %//'>•>; 
INREALC60*ft>; ~ 
10** »IF'N<10 'THEN' 

•BEGIN' 
•FOR , I:=i 'STEP' I 'UNTIL *N ! DO s 
"FCI3:=*IF'I<2 t THEN'l 

•ELSE' I*FC1-U* 
OUTPUTC 61* '< 'D* ' C! IS ')** 

ZZZZZD') '*N>FCN3)5 
0UTPUTC61* '< '//•)')* 
•GOTO 'start; " 
'END';" 
20** 0UTPUTC6l*'C'DD, '<' IS GREATER')'* 

•C THAN"9*ST0P HERE ' > " ) »*N> ; 
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•END' 

•EOP' 
COU LINE 0006 



con 
con 



LINE 0022 
LINE 0022 



PROGRAM BEGINS 
PROGRAM ENDS 
SOURCE DECK ENDS 



# LOAD* 5 6 

RUN 
RUN 
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CHANNEL* 60 =LU 60 *P80 
CHANNEL* 61 =LU61 * PI 3 6* PP 60 
CHANNEL* END 

CHANNEL* END 



ENTER 


N 


I 

1 ! IS 


1 


ENTER 


N 


4 

4! IS 


24 


ENTER 


N 


9 

9! IS 


3 62880 


ENTER 


N 



10 

10 IS CHEATER THAN 9* STOP HERE 



END OF ALGOL RUN 
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7 . PROCEDURE STATEMENTS 



See sactic i II. 4 



8. FOR STATEMENT 

STRUCTURE OF 'FOR 1 STATEMENT: 



(1) 'FOR' TEST:=A 'STEP' B 'UNTIL' C 'DO S; 

(2) 'FOR* TEST:=E 'WHILE' F 'DO' S; 
A,B,C,E: Arithmetic expressions 

S : Statement 

The beginning of a 'FOR' statement 

This identifies increment value in a 'FOR' statement 
This word identifies the final value in a 'FOR' 
statement 

Separator in a 'FOR' statement 
This word causes the statement that follows it 
to be executed 
TEST: Variable name 



'FOR' 

' STEP ' 

'UNTIL' 

'WHILE' 
•DO' 



FUNCTION OF 'STEP' - 'UNTIL' IN A 'FOR' STATEMENT 




Yes 




48 



FUNCTION OF 'WHILE 1 IN A 'FOR' STATEMENT 




Yes 




EXAMPLE 



'FOR' Statement 



Equivalent Condition Statement 



•FOR' I:=l 'STEP' 1 
'UNTIL' N 'DO* A(I) :=I; 



I:=l; 
LI: 'IF' I-N>0 

'THEN' 'GO' 'TO' L2 ; 

A(I) : = I; 

I:=I+1; 

'GO' 'TO' LI; 
L2 : ... 



Y : =APP : 

•FOR' X:=(2.0*Y+A/(Yt2)/3.0 
'WHILE' ((Y-X)/X) 'GEQ'0.0001 
'DO' Y:=X; 



Y:=APP; 
Ll:X:=(2.0*Y+A/(Yt2)/3.0; 

•IF' (Y-X)/X< (0.0001) 

'THEN' 'GO' 'TO' LI; 

Y:=X; 'GO' 'TO' LI; 
L2 : . . . 
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PROGRAM ON ILLUSTRATION OF FOR STATEMENT 



#ALGOL*I = FOR*X*L 



0S3 ALGOL VO.O FOR STAT 02/24/70 1143 
FOR STATEMENT STRUCTURE ILLUSTRATION 
THIS PROGRAM WILL CREATE AND PRINT AN ARRAY 
•BEGIN* 

• INTEGER • 'ARRAY 'AC 1 : 5 3* 
'INTEGER'S* I 5 
S:=0* 

•FOR' l: = l 'STEP'l 'UNTIL' 5 'DO' 
•BEGIN'ACl35=3tCI-l>; 
S5=S+ACI3J 
10** 'END '5 

OUTPUT (61* 'C"C 'SERIES OF 
'('GEOMETRIC PROGRESSION 
'('WITH R=3*A=1 ')")')J 
OUTPUT (61* 'C '//') '5; " " 
•FOR' I S=t 'STEP'l 'UNTIL' 5 'DO' 

0UTPUTC61* 'C + ZZZD') '*ACI3)* " 
OUTPUT C 61* •('//') ')! 

0UTPUT(61*'C"C , S = ') '*ZZZZD»)'*S); 
•END' . 
20** *EOP* 

(01) LINE 0003 PROGRAM BEGINS 
(01) LINE 0019 PROGRAM ENDS 
(01) LINE 0019 SOURCE DECK ENDS 



PAGE 



)»* 
•5V 



# LOAD* 5 6 

RUN 
RUN 
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CHANNEL* 60=LU60*PS0 . . 
CHANNEL* 6i=LU61*P136*PP 60 
C HANNEL* END 

CHANNEL* END 



SERIES OF GEOMETRIC PROGRESSION WITH R=3*A=1 

+ 1 +3 + 9 +27 +81 
S = 121 



END OF ALGOL RUN 
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9. INPUT/OUTPUT AND FORMAT STRING 

I/O Procedure Call 

( a) Character transmission 



INCHARACTER < CHANNEL* STRING* DESTINATION); 
OUTCHARACTERC CHANNEL* STRING* SOURCE)! 



STRING: Any character strings in the form of 

'("('... . * ) ' ' ) ' 

e.g. ' (" ('ABCDE') ,l ) ' 

INCHARACTER: Reads a character from the channel, compares it 
to the character string until a match is found or upon exhaus- 

j_J__> _.JT J-lx* r.U«v>in4>nv>B in +>Vip of 1»1 Wrf 

tXUIl Ul L.HC ^iiaJ.aui-ci.o xii i««5 sa» ?»*. -*.i*>j • 

Value of destination = J if a match is found at Jth character 

if no match is found. 



EXAMPLE : 

INCHARACTER (60,' ( ' ABC ' ) ' , I)_; 



Input Character 



A 

B 

C 

other 



Value of I 



Informative error of type 01- non-format error will. appear 
However^ this is not _an_actual error. __ _. .. . _ 
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OUTCHARACTER : Examines the value of source and writes out 
i) The corresponding character of the string if the 
value is in the range of 1-J (length of string) 
or ii) the error message "out character error" if the value 
is not in the range of 1-J. 



EXAMPLE: 

OUTCHARACTER (61 , r ( ^TUV 1 ) r , J) I ; 



Value of 


J 


Outputted character 


2 




T 


3 




U 


4 




V 


other 




"OUT CHARACTER ERROR" 



Note comment on page 52 



(b) Transmission of Arrays 

INARRAY< CHANNEL#NAME OF ARRAY); 
OUTARRAY( CHANNELjNAME OF ARRAY); 

- Reads or writes out a whole array by rows 
EXAMPLE: 

•ARRAY* XCll2*lt33; 

INARRAY(60*X); 

0UTARRAY(61*X); 

X is a 2 x 3 array with the elements inputted or printed in 
the following order: 

X ll' X 12' X 13' X 21' X 22' X 23 
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( c) Transmission of Type Real 

i WHEAL ( CHANNEL* VARIABLE NAME); 
OUTREALC CHANNEL* VARIABLE NAME); 

- Reads or writes out variables using standard 
format one at a time. 

EXAMPLE : 

•REAL* A; 

INREALC60*A); 

OUTREALC 61*A>; 

'COMMENT* INREAL(60*A*B) IS INVALID* 



INPUT 



1.01 



OUTPUT 



+1.010000000 , -000 



(d) I/O Control Procedure Calls 

EOF (channel, label): transfers control to the label when 
an end of file is encountered on an output device. 

EXAMPLE: EOF (60, END); 

(e) FORMAT I/O Call 

INPUTC CHANNEL* FORMAT STRING*LIST OF VARIABLE NAMES); 

OUTPUT C CHANNEL* FORMAT STRING* LIST OF VARIABLE NAMES); 



- Reads in or writes out one or more values according to 
specified format string. ft 



ft Legal format string and example, see section V.9 
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FORMAT STRING Summary of format codes 

B Blank Space 

D Digit (without zero suppression) 

F Boolean true or false (variable must be declared 'BOOLEAN') 

H INTEGER VARIABLE; 8 consecutive BCD characters are to be 

INPUT/OUTPUT to or from a single integer variable. 
N Standard format (+D.9D'+3D) 

S String character-used for output of string quantities 
T Truncation 
V Implied Decimal Point 
Z Zero suppression 
. + Print the sign 

Print the sign if it is minus 
() Delimiters of replicated format string 
/ New line 
* New page 

Decimal point 
'(")' Inserted character string (can be used for title format) 

Exponent part indicator. E.G. 1.25' +002 
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EXAMPLE ON INPUT/OUTPUT AND FORMAT STRINGS 

(1) NUMBER FORMATS 

•HEAL* A*BJ 
A:=-1000.999J 
B:=2L126; 

0UTPUTC61* , ( , 2<+ZZZDDD.DD4B) ') ' ,A,B) ; 
RESULT J -1001*00 +021.13 
0UTPUTC61* , C , 2(+3Z3D.2D4B) ') ' ,A,B) ; 
RESULT: -1001.00 +021.13 
0UTPUTC61* •<'2<-3D2B3D.2DT43) ') SA*B>5 
RESULT: -001 000-99 -000 021.12 
OUTPUT (61* '(^C '( 'INTEGER PART ' > S -4ZV* » C '* 
FRACTIONMSBSD*/) ») »>A*B); 
RESULT: INTEGER PART -1000* FRACTION 999 
INTEGER PART 21* FRACTION 126 
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(2) STRING FORMAT 

FORMAT CODE: S 

During compilation, it will give message as: 
(01) LINE xxxx NON-FORMAT STRING 

EXAMPLES : 

OUTPUT (61 j 9 C'3S *">','(. 'YES') *>; 

RESULT: YES 

0UTPUT(61* '('as*) '* '( 'YES') f )J 

RESULT: YE 

OUTPUT C 61* »< , 5S , > , > '< 'YES')'); 

RESULT: YES*) 

OUTPUTC61* 'CSS*) •* , C , YES f ) »)J 

RESULT: YESM'OO 

This is an Algol error 

(3) BOOLEAN FORMAT 

•BOOLEAN' A*BJ 
A: = 'TRUEM 
BS^'FALSE'* 

output(6i* •c , f*> sa>; 

RESULT: T 

0UTPUTC61* »C , FFF*> SB)J 

RESULT: F 



(4) ALIGNMENT MARKS 



OUTPUT C 61 * *( */•) *>* 
RESULT: (LINE RETURN) 
OUTPUT (61* '(•*•) •> 5 
RESULT: (PAGE EJECT) 
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(5) TITLE FORMAT 



OUTPUT (61* •(••( 'ENTER DATA*) • •) •); 

RESULT: ENTER DATA 

OUTPUT C 61 * ' C • • ( »STOP • >••)•) ; 

RESULT: STOP 



(6) STANDARD FORMAT 

FORM: +D«9D'+3D 

There are several ways of inputting and outputting with 
standard format 

(a) Read or write I variable 

A:=123.457> 

0UTPUTC61* '( • •) SA>; 

or 0UTPUT(61# •CN*) SA); 

or 0UTREALC6UA); 

Will give the same result as: 

+ 1.234570000 '+002 

(b) For 2 or more variables 

OUTPUT c 61* , < ,, >> A,B>; i s recommended 

However, one can still use format code N, for example 

0UTPUTC61* •< f N*N') SA*B)J 

NOTE: •(•N,N , ) f + •C^N')' this will give 
FORMAT STRING ERROR, but 2 (N) is okay. 

(7) H FORMAT 

Read or write out 8 consecutive BCD characters (integer 
variable) 
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•INTEGER' I ; 

INPUT C 60* '< f H'> SI); 

outputc6i* '('h;)M); 

DATA= AB12HFZG (8BCD) 
RESULT: AB12HFZG 
DATA= XYZ1234AB (9BCD) 
RESULT: XYZ1234A 
DATA= 123556A C7BCD) 
RESULT: 12355 6A 

(8) FREE FORM INPUT AND STANDARD OUTPUT 

FORMAT STRING ' ( ' ' ) ' 

It will read in values according to their types and write 

out values in the form of: 

+D.9D 1 + 3D (real) 
+15ZD (integer) 

EXAMPLE 
# ALGOL* I=FREEF0RM*X*L 



S3 ALGOL V0«0 FREEFORM 02/24/70 1147 PAGE 1 
FREE FORM 
•BEGIN' 

• INTEGER *A*B> 
•REAL'C*£>* 

INPUTCeO^'C' ') SA*B#C*D); 
0UTPUTC61; 'i • *5 SAiC); 
OUTPUT (61* •<•//• )M; 
0UTPUTC61* '< f f )SD*B); 
•END' 
10** 'EPP !_..... 
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(01) LINE 0002 
COD LINE 0009 
<01) LINE 0009 



PROGRAM BEGINS 
PROGRAM ENDS 
SOURCE DECK ENDS 



# LOAD* 5 6 

RUN 
RUN 



CHANNEL* 60=LU 60* £80 
CHANNEL* 61 =LU61 * PI 3 6* PP60 
CHANNEL* END 

CHANNEL* END 



1 -2456 13*44 -0»999 



+1 +i.344000000'+001 
-9.990000000 '-001 -2456 



END OF ALGOL RUN 
# 
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Example on I/O and FORMAT String 



#ALGOL>I = INOUT*X*L 



OS3 ALGOL VO.O INGUT 02/24/70 1150 PAGE 1 

ILLUSTRATION OF I/O STATEMENTS AND VARIOUS FORMAT STRINGS 

•BEGIN* 

* • INTEGER 'i; 

•real'y; 

'BOOLEAN 'B; 

B:=*TRUE*; 

START: OUTPUT* 61* '<•*'> •>; fmTn , nlNf * Iv 

OUTPUT C 61 * »C* 'CENTER 1 TO READ AND WRITE M •*>» >* 
in** OUTPUT C 61# *C •/* 5 *>;. 

*"" * OUTPUT C 6 iVC' CENTER 2 TO PRINT LOGICAL VALUE ' ) • ' 5 • ) i 

0UTPUT(6l'* , CV t ) , >; 

OUTPUT ( 61 * 'C CENTER 3 OR LARGER TO STOP' >••>')* 
0UTPUTC61* •(•/•>•>; 
INPUTC60* 'C~ ')M)J 

output(61* 9 t •//•} •>; 

•IF' 1=1 'THEN' 'GO TO' IN 

•ELSE' 'IF'I=2 'THEN'' 'GOTO' PRINTB 

•ELSE' 'BEGIN* 

20 ** "0UTPUTC61*'C'CST0P' >•'>*>; 

•go to'finish; 

•END*5 
PRINTB : 0UTPUTC61* 'C •F , )**B>5 

•GO to 'start; 

IN: OUTPUT ( 6b '<" CENTER Y '>")'>; 

outputc61* '(•/' j •>; 

INPUT* 60* '< ' 
OUTPUT* 61* 'C 

•GO TO 'start; 
30** FINISH: 'END* 
•EOP* 
(01) LINE 0003 PROGRAM BEGINS 
(01) LINE 0030 PROGRAM ENDS 
<01> LINE 0030 SOURCE DECK ENDS 

# LOAD* 56 

RUN 

RUN 
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CHANNEL* 6Q=LU6Q* P80 
CHANNEL* 61 »LU6UP136*PP 60 
CHANNEL* END 

CHANNEL* END 



ENTER 1 TO READ AND WRITE 

ENTER 2 TO PRINT LOGICAL VALUE 

ENTER 3 OR LARGER TO STOP 
1 



ENTER Y 

1-567 

+1.567000000* 



000 



ENTER 1 TO READ AND WRITE 
ENTER 2 TO PRINT LOGICAL VALUE 
ENTER 3 OR LARGER TO STOP 
2 



ENTER 1 TO READ AND WRITE 

ENTER 2 TO PRINT LOGICAL VALUE 

ENTER 3 OR LARGER TO STOP 
3 



STOP 



END OF ALGOL RUN 
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10. SAMPLE RUN ON ALL STATEMENTS 



Given a date, this program will find the day of the week on 
which that date occurred. 

INPUT: 12/25/1965 means December 25, 1965 
03/15/1970 means March 15, 1970 

Compute J by the formula given below. 

J = K + 2*M + (3*(M+l)/5) + N + (N/4) - (N/100) + 
(N/400) + 2. 
where 

M = Month 
K = Day 
N =■ Year 
Note: Treat January and February as the 13th and 14th months 

of the preceding year. 
Compute L = remainder of J/7. 

Then the day is Saturday if L = 

Sunday if L = 1, etc. 
OUTPUT: 

THE DATE XX/XX/XXXX FALLS ON XXXXXXXXX 
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# ALGOL* I =ST ATE* X*L 



0S3 ALGOL VO.O STATEMEN 02/24/70 1156 PAGE 1 
STATEMENTS - ILLUSTRATION ON STATEMENTS. 
THIS PROGRAM IS TO FIND THE DAY OF THE WEEK. 
•BEGIN' 

' • integer 'm,d*y*l; 

'SWITCH • ~DAY:=S 1 * S2> S3# S4* S5* S6j S 7; 
'INTEGER "PROCEDURE* JCM,K*N); 
" 'VALUE 'M^KiN; 

•integer' m*k#n; 
"begin* 

10** " J:«K+2*M+ENTIER<3*(M+1)/5)+N+ENTIER(N/4) 

-entier(n/100)+entier<n/400)+2; 
•end 1 ; 
• integer • 'procedure * rem< i* j>; 

•value'j; "'integer' i*j5 

•BEGIN 1 

' ' integer 'remm; 
rem«:»i;' 
subt 'if' remm 'not less' j 'then' 

'BEGIN' REtfM:=REMM-J; 
20** 'GOTO 'sub; 

•end'; 
rem«»remm; " 
•end 'rem; 
start: output* 61* '<"< 'input the date')")'); 

0UTPUT<61* '( '//') •); 

input(6o* 'f ••> vm;d*y>; 

E0F<60*EN6)i " 
•lF f M<3 'THEN "BEGIN' M:=M+12; 

y:=y-i; 

30** 'END'; 

L:=REM(J<M*D*Y)*7)i 

•IF' M>12 'THEN' 'BEGIN' M$=M- 12; Y: =Y+1 ; 'END ' ; 

OUTPUT* 61 * f <"< 'THE DATE ' ) SZD* ' ( V ' > % > ZD* 
'(VMS^Di'C FALLS ON , )")SM*0*Y)J 

•G0T0'"DAY"CL+13; 
SIS 0UTPUf<6t* '< "( 'SATURDAY') "> '); 

•GOTO' li; 
S2: 0UTPUt<61* •( ' '( 'SUNDAY') ") '); 

•GOTO 'LI ; 
40** S3: OUTPUT C61* '( "C 'MONDAY') ") '); 

•60T0' li;' 
S4: OUTPUT C61* '( "( 'TUESDAY') ") '); 

•GOTO' Li; " ' 
S5: OUTPUT <61* '< ••('WEDNESDAY') •') '); 

•GOTO' Li; ' 
S6: OUTPUT* 61* '( ' '( 'THURSDAY') ' ') '); 

'GOTO* li; ~ " " 
S7: OUTPUT (61* '( "C 'FRIDAY') ") '); 
Lis 0UTPUT(61* '(•///') '); 
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50** 'GOTO'STARf; - 

END: 'END'" 
f !0P* 
(01) LINE 0003 ~ PROGRAM BEGINS 
COD LINE 0051 PROGRAM ENDS 
<0l) LINE 0051 SOURCE DECK ENDS 

# LOAD* 56 

RUN 
RUN 



CHANNEL* 6Q=LU6Q*PgO 
CHANNEL* 61=LU61*P136*PP 60 
CHANNEL* END 

CHANNEL* END 



INPUT THE DATE 

1/02/1964. 

THE DATE 1/ 2/1964 FALLS ON THURSDAY 



INPUT THE DATE 

11/08/1947 

THE- DATE 11/ 8/1947 FALLS ON SATURDAY 



INPUT THE DATE 

12/25/1970 

THE DATE 12/25/1970 FALLS ON FRIDAY 



INPUT THE DATE 

1/01/1970 

THE DATE 1/ 1/1970 FALLS ON THURSDAY 



INPUT THE DATE 
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PART THREE 

Part Three contains several r TQ rf r5uiS t^ ,a '*" 
are meant to serve as examples of ways in 
which ALGOL can be applied, not only in 
mathematical areas, but also in the simu- 
lation of models. 



I . NEWTON ' S METHOD 
1. NEWTON'S METHOD FOR CUBE ROOTS 

This program uses Newton's iteration method for locating 
the zeros of a function. The equations take the following 
form for cube roots: 

f(x)=x 3 -a=0 

3 
g(x)=x -a+x=x 

/ v f(x) 
<J (X)=X -Flx7 

, x x 3 -a 2x-a/x 
g(x)=x— ^2 = 3 

The last equation is used in the program in the following 
manner: 

y=x 
x=(2y+A/y 2 )/3. 

The degree of accuracy can be controlled by the IF State- 
ment on line 12. 
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EXAMPLE 



#TIME*10 

# ALGOL* I -NEWTON* X*L 



OB 3 ALGOL VO-0 NEWTON 10/07/69 

NEWTON 

CUBE ROOT DETERMINATION 
EXAMPLE 1 A 

•BEGIN f 

•REAL' A* APP* X* Y; 

IN REAL(60*A); 

in real(60# app>; 
xs=app; 

10** NEWTONxY:*XJ 

Xl*(2.0*Y+A/(Yt2>)/3.0 * 
•IF' (Y-X>/X < (.0001) 'THEN* 
OUTPUT (61* •<• 4ZD*6D# / ')'* X) 
•ELSE' 'GOTO' NEWTON I 
•END' 

•EOP' 
(01) LINE 0005 PROGRAM BEGINS 
(01) LINE 0015 PROGRAM ENDS 
(01) LINE 0015 SOURCE DECK ENDS 



# LOAD* 5 6 
RUN 

RUN 
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M 

L 



CHANNEL* 60 *LU 60* P80 
CHANNEL* 61 -LU61 *P1 36*PP60 
CHANNEL* END 

CHANNEL* END 



vt 3*0 5 ««i 



5«229322 



10 { END OF ALGOL RUN 

#TIME 

TIME 4.947 SECONDS MFBLKS i CFBLKS 1 

#DATE 

OCTOBER 7* 1969 i S45 PM 
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Comments to the example, Newton's Method for Cube Root s 

1 The command "ALGOL, I=NEWTON , X , L " is used to 
call the ALGOL compiler. The "I" is used to specify 
where the program is coming from. In this case it 
is the saved file NEWTON. The "X" indicates where 
the object program should be sent. In this case it 
is 56, the standard unit that is assumed if none is 
stated. The "L" is used to specify that a listing 
of the program as it appears on NEWTON is desired. 
NOTE: For other options see reference 7, pages 9, 10 

2 The listing of the program begins. Notice that 
the date is given and also the version, V0.0, the 
first eight letters of the program, the time, and 
the page. Anything that is stated before the first 
"BEGIN" is treated as a comment, and is not exe- 
cuted. 

3 The executable part of the program begins. 
Under the OS- 3 ALGOL certain words must be 
enclosed in single quotes, " ' ". See Part Two if 
you are in doubt about a word. Colons can be sub- 
stituted for two periods: Semicolons can be substi- 
tuted for a period and a comma. 

In this example, Newton is used as a label for 
the line "NEWTON: Y :=X; " . Notice that later in the 
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program the command " 'GOTO' NEWTON" is used to 
return to that line. 

For each "BEGIN" there must correspond an "END". 
Notice the "10**", this indicates line number ten. 

If the program contains any errors they will be 
listed here. For a list of error messages and their 
explanations see reference 3. The beginning, end, and 
source deck ending is also listed. 

The command "LOAD, 56" was used to load the binary 
object program. The first "RUN" is typed by the user, 
and is terminated by a carriage return and a line feed, 
The second "RUN" is typed by the computer. 

Two channel specifications are automatically 
supplied by the ALGOL system. If more channel speci- 
fications were desired they would be added at this 
point. They would have the form: 

CHANNEL , AA=LUxx , Pbb , PPcc 

where 

AA integer channel number, up to 14 

decimal digits 
xx Operating System LUN (Logical Unit 

Number) , 0-99 

60 for input standard unit 

61 for output standard unit 

62 for card punch output 

bb Maximum physical record size in charac- 
ters (normally 136 characters per line, 
or 68 for Teletype) 

cc Number of records per page 

For more parameters see reference 8, page 5, Control 
Data Instant ALGOL , (this booklet can be purchased 
from the Computer Center main office) . 



69 



Example: CHANNEL, 4 0=LU4 ,P80 ,PP60 

where LUN 40 would be equipped earlier by the control 
mode command 

EQUIP, 40=FILE , 

EQUIP,40=<Name of your or data f ile> , . . . ,etc 

8 The data is typed in by the user. Data may be 
separated by two or more spaces or by one comma and 
one space, or data input format may be specified by 
using the command INPUT (see Part Two, page 7, 8). 

9 The cube root of 5.229322 is typed by the com- 
puter. 

10 The line, END OF ALGOL RUN, which is typed by 

the computer indicates a normal termination. 
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2. NEWTON'S METHOD WITH LOOPING 
EXAMPLE 



IIIIIUIIHI 

#DATE 

OCTOBER 3* 1969 4:48 PM 



#*SCOOP 
MAXTIWC 

SFBLKS 
SFBLKLXM 



1028 

98 

100 



#TIME=20 
#ALG0L*I=NEWT0N2*X*L 



I 



5 < 



10** 



20** 



0S3 ALGOL VO-0 NEWTON 2 10/03/69 

NEWT0N2 

CUBE ROOT DETERMINATION* MORE THAN 
ONE ROOT CAN BE CALCULATED PER RUN. 
EXAMPLE 1 B 

•BEGIN' 

♦REAL'* A* APP* Y> ENDTEST* X; 

0UTPUT<61* r C *<* ENTER DATA ')' 

>/ •)' )1 
LOOP: INPUT<60# 'C •>•# A*APP); 

X..=APP5 
NEWTON.. Y..=X; 

X..=C2.0 *Y +A/(Yt2>)/3.0; 

•IF 1 CY-X5/X < •OOl 'THEN' 

0UTPUTC61* *C f '*<• THE CUBE OF •>• 

> 3ZD-3DBBB* r C* IS ' )* 

3ZD.9DBB*// MSA* X) 

•ELSE' 'GOTO* NEWTON; 

INREAL C60* ENDTEST); 
•COMMENT' THIS WILL BE A POSITIVE 
OR NEGATIVE VALUE; 
•IF' ENDTEST < 'THEN' 'GOTO' 
LOOP 'ELSE' 'GOTO' FINISH; 
FINISH* •'END* 

•EOP f 

LIME 0(506 PROGRAM BEGINS 

LIWE 0025 PROGRAM ENDS 

LINE 002 6 SOURCE DECK ENDS 



(01) 
COD 

con 

#L0AD*56 

RUN 
RUN 
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CHANNEL* 60=LU 60* P80 
CHANNEL* 61 =LU61*P136*PP 60 

CHANNEL* END 

CHANNEL* END 



ENTER DATA 

143 5.4 -1 34.00 3-5 1 

THE CUBE OF 143.000 IS 5*229321532 

THE CUBE OF 34.000 IS 3*239611805 



END OF ALGOL RUN 

#L0G0FF 

TIME 4.700 SECONDS MFBLKS 1 COST SO. 52 
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Comments to the example, Newton's Method with Looping 



#DATE This command is used to print the date 

and time on the printed output. 

#* SCOOP This tells the user how much time 

(seconds) he has left under his number, 
how many saved file blocks he is using and 
the maximum number he can use. 

#TIME=20 Time consumption (seconds) is limited 

to 20. 

OUTPUT (61 This statement is used to print out 

ENTER DATA. Characters that appear within 
the format string enclosed in another set 
of '(' and ')' will be printed with the 
output . 

LOOP: The label loop is set up for the pur- 

pose of reading more input after one calcu- 
lation has been made. See lines 24 and 25. 

INREAL(60,ENDTEST) If endtest is positive the pro- 
gram will go through the normal termination 
(i.e., END OF ALGOL RUN). If endtest is 
negative, another computation will be 
performed. 
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II. TWO-DIMENSIONAL ARRAY 

This program declares a series of arrays of ever- 
increasing dimensions. 
EXAMPLE 

aiiimHii 

#DATE 

OCTOBER 1» 1969 1 *48 PM 

#TIME«10 

#ALG0L# I-ALGOLDIM#X*L 






OS 3 ALGOL V0*0 2-DIMENS 10/07/69 1349 
2-DIMENS IONAL ARRAY 

THIS PROGRAM DECLARES A SERIES OF ARRAYS 
OF EVER- INCREASING DIMENSION. THE ARRAY IS 
THEN FILLED WITH COMPUTED VALUES* ONE OF 
WHICH IS ALTERED* THE ALTERED VALUE IS 
THEN SEARCHED FOR AND PRINTED. 
SINCE THE PROGRAM HALTS NORMALLY WHEN THE 
DECLARED ARRAY SIZE EXCEEDS THE AVAILABLE 
MEMORY IT IS NECESSARY TO LIMIT THE 
10** TIME* 

"BEGIN 9 
•INTEGER* I#M*N1 

n»io; 

LSlt-I + U 

0UTPUTC61* '<• /» 3D •>*# I); 



•BEGIN 



20** 



•ARRAY' AC-3*It-I# 1*2*13; 
•INTEGER* P#Q* 

•FOR* Pl« -3*1 'STEP* I 'UNTIL* -I 
•DO' 'FOR' Qi- I 'STEP* 1 'UNTIL* 
2*1 *D0* ACP*QJt» -P*100*QJ 



30** 




00*Q-P 



•BEGIN • 

0utputc6w *(* /*5d *)*# acp#q3 ) 
•end*; 
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40** 
<G1> 
(01) 
(01) 



•GOTO* 
•END' 

•EOP' 
LINE 0012 
LINE 0039 
LINE 0039 



PROGRAM BEGINS 
PROGRAM ENDS 
SOURCE DECK ENDS 



#L0AD*56 

RUN 

RJN 

CHANNEL* 60«LU60*P80 
CHANNEL* 61 «LU61 *P1 36* PP60 
CHANNEL* END 

CHANNEL* END 



Oil 

11322 

012 

11424 

013 

11526 

014 

11628 

015 

1 1 730 

016 

11832 

017 

11934 

016 

12036 

019 

12138 

020 

12240 

021 

12342 
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TIME CUT 

#TIME 

TIME 9*912 SECONDS MFBLKS 4 CFBLKS 2 

#TIME»12 

#GO 

022 

12444 

023 

12546 

024 

12646 



TIME CUT 

#L060FF 

TIME 11*956 SECONDS MFBLKS 4 COST SI* 15 
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Comments to Example II , Two-Dimensional Array 

1 In this program, it is necessary to set a time 
limit, since the program will run until memory over- 
flow. A time limit of 60 seconds is automatically 

smaller time limit if you are not sure of a program 
or if you know the program does not have a normal 
exit. 

When you do get a time cut, reset time=old value+ 
10 etc., and then type GO. 

This program was saved under the file name ALGOLDIM, 

2 In this example the comment statements are used 
to explain the purpose of the program. The name of 
the program is taken from the first eight characters 
of the first line. Before loading this program, or 
a program of this type, it is a good idea to set a 
time limit. This is done from the control mode, "#", 
by stating "TIME= (NUMBER OF SEC)". 

3 The executable program begins on line 12. Notice 
the "10**" which indicates line number 10. 

4 The " (/" also represents the left bracket "[" and 
they can be interchanged. The same is true for the 
right bracket. 

The symbols ' ( ' , ' ) ' used in the format are 
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delimiters and must be used to enclose the format 
string under the OS-3 ALGOL. The symbol / causes 
a line feed. The code 3D indicates a 3-digit output 
for integers. The I indicates the variable that is 
to be printed. 

The values for M and N are set and the value 
of the M and Nth element of the Array is set. 
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III. ECONOMICS EQUILIBRIUM PROBLEM 

This program uses a model that is made to resemble an 
economic system that is controlled by NNP=Consumption + 
Investment, with an assumed multiplier working on Investment 
Government and Taxes are excluded from this simplified model 

The assumption is made that the public will be slow to 
react to the increased Investment. Therefore, a time lag is 
introduced in line 19 . 
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EXAMPLE 



#DATE 

OCTOBER 7* 1969 1*55 PM 

#TIME«10 



#ALGOL*I*ALECON*X*L 



(S 3 ALGOL VCO ALECON 10/07/69 1355 

ALECON 
ECONOMICS PROBLEM IN EQUILIBRIUM. 

A I STANDS FOR INVESTMENT DEMAND 
C STANDS FOR CONSUMPTION DEMAND 
ANNP STANDS FOR THE VALUE OF NNP 
ANNPL STANDS FOR THE VALUE OF THE LAST 
NNP. 
THIS PROGRAM CALCULATES THE CHANGE IN NNP CAUSED BY AN 
INCREASE OF 10 BILLION IN INVESTMENT* ACCORDING TO THE 

io** multiplier theory. 

•BEGIN' 'REAL* AI*C* ANNP* ANNPL* DF; 
AIS-60.0J 
C**-740.0* 
ANNP* • -000.0* 
ECON.. OUTPUT (61* ' C *3(. 10D>*/ • ) '*C*ANNP*AI ); 
ANNPL t-ANNP; 
AI..-70.0J 

C* "206* 667 + (2.0/3.0)* ANNPL I 
20** ANNPt- C* AX J 

DF..« .001 -CABS (ANNP- ANNPL)); 
•IF* DF < 0.0 'THEN' 'GOTO* ECON 'ELSE' 
•GOTO' LAST; 
LAST.. OUTPUT (61* •( '3(.5D)*/ • ) •* C* ANNP* AI* ANNPL); 
•END' 

•EOP^ 
(01) LINE 0012 PROGRAM BEGINS 
(01) LINE 0025 PROGRAM ENDS 
(01) LINE 0025 SOURCE DECK ENDS 

#L0AD*56 

RUN 

RUN 
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CHANNEL* 60»LU60*P80 
CHANNEL, 61-LU61*P136,PP60 

CHANNEL*END 

CHANNEL* END 



9 i 



*+7«400000000 , +002**+8»00000000O , +002**+6.000000000 , +00l* 
♦+7-400003334 f +002**+8. 100003334 •+002**+7. 000000000 '+001* 
♦+7.466672223 •♦002**+8*l 66672223 '+002**+7. 000000000 '+001* 
*+7»511118148 , +002**+8«2§» 
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#EDIT 

3FIN,ALEN\C0N 

JRESEQ 

3SARL* 99 /• 10D/#/3ZD« 10D/ 

00016: EC0N..0UTPUT<61> , ( , 3<3ZD.10D>#/ , > , ,C#ANNP#AI>; 

30UT#ALEC0N 

# ALGOL* I«ALEC0N* X 



0S3 ALGOL 


V0«0 


<01> 


LINE 0012 


(01) 


LINE 0025 


(01) 


LINE 0025 


#L0AD*56 




RUN 




TIME CUT 




#TIME 




TIME 9*910 SECONDS 


#TIME»20 




#G0 




RUN 





ALECON 

PROGRAM BEGINS 
PROGRAM ENDS 
SOURCE DECK ENDS 



10/07/69 



MFBLKS 1 CFBLKS 1 
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CHANNEL* 60»LU60*P80 
CHANNEL* 61 »LU6l*Pl 36* PP60 
CHANNEL* END 

CHANNEL* END 



0000000000 800 • 
0003333000 810* 
6672222000 81 6. 
1118148000 821* 
0748765000 824. 
0502510000 826* 
3671674000 827. 
2451116000 828* 
8304077000 828. 
2206051000 829. 
4807368000 829. 
6541578000 829. 
7697719000 829. 
8468479000 829. 
8982319000 829. 
9324880000 829. 
9553253000 829. 
9705502000 829- 
9807001000 829. 
9874 668000 829. 
9919778000 829. 
9949852000 829. 
9969901000 829. 
9983268000 829. 
99922 829.99922 



740 
740 
746 
751 
754 
756 
757 
758 
758 
759 
759 
759 
759 
759 
759 
759 
759 
759 
759 
759 
759 
759 
759 
759 
759 
♦8.299983268 f *002 



0000000000 60 

0003333000 70 

6672222000 70 

1118148000 70 

0748765000 70 

0502510000 70 

3671674000 70 

2451116000 70 

8304077000 70 

2206051000 70 

4807368000 70 

6541578000 70 

7697719000 70 

8468479000 70 

8982320000 70 

9324880000 70 

9553253000 70 

9705502000 70 

9807001000 70 

9874668000 70 

9919778000 70 

9949852000 70 

9969902000 70 

9983268000 70 
70.00000 



•0000000000 
•0000000000 
•0000000000 
•0000000000 
•0000000000 
•0000000000 
•0000000000 
•0000000000 
•0000000000 
•0000000000 
•0000000000 
•0000000000 
•0000000000 
•0000000000 
•0000000000 
•0000000000 
•0000000000 
•0000000000 
•0000000000 
•0000000000 
•0000000000 
•0000000000 
•0000000000 
•0000000000 



END OF ALGOL RUN 

# LOGOFF 

TIME 16.700 SECONDS MFBLKS 1 COST $1*79 
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Comments to Example III , Economics Equilibrium Problem 

1 The first six characters of the beginning 

of an ALGOL program are used for the name, in this 
case ALECON. 

2 The characters that occur between the name and 
the first "BEGIN" are ignored by the computer. They 
are usually used for comments. 

3 The first "BEGIN" appears and immediately fol- 
lowing it is a declaration, in this case "REAL". 
This gives the variables AI,...,DF real storage loca- 
tions (decimal) . 

4 The values of the variables are set. 

5 The label ECON is set up. This will be used for 
reference later in the program. See line 00022, 

' GOTO' ECON . 

6 The last value of NNP is saved before the next 
is calculated by giving it the name ANNPL. 

7 The Investment (AI) is increased by +10 billion. 
This causes disequilibrium of the economic model. 
Notice that in this simplified model, Government and 
Taxes are absent. 

8 DF is a test value that will have a positive 
value when the economic model is in equilibrium. 
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9 Output statement allows format specifications. 

See Part Two. The format that was used was not 
readily readable, so we will go back to EDIT and 
change the format. 

10 The format is changed, and the changed program 

saved. 
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IV. SIMPSON'S RULE FOR INTEGRATION 



This program gives an approximation to the integral of 
a specified function. The program will calculate only a 
positive integral. 

The interval of integration is subdivided into an even 
number of intervals. 

The number of intervals is n. 

The step width is J=(B-A)/n, where B is the upper limit 
and A is the lower limit of integration 



X =X n +KJ(K=l,2, ...n) 
k 



r 



*f(x)dx = | [f (x Q )+4f (x x )+2f (x 2 )+...+ 



A 4f(x„ . )+f (x )]+Rem. 

n-i n 
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Example IV 



#TIME"20 

# ALGOL* I -ALSIMIN* X*L 



0S3 ALGOL VO*0 ALSIMIN 10/07/69 1409 

ALSIMIN 

THIS PROGRAM GIVES AN APPROXIMATION FOR THE 
INTEGRAL OF F(I> » WHICH IN THIS EXAMPLE IS* 

F{I>«SQRT<2*0/3*14l6>*l*0/2*718t<<-Xt2*0>/2*0>. 

THIS EXAMPLE IS SET UP TO HANDLE ONLY POSITIVE 
UPPER AND LOVER LIMITS* 

A STANDS FOR THE LOVER LIMIT OF THE INTEGRAL. 
10** B STANDS FOR THE UPPER LIMIT OF THE INTEGRAL* 

N STANDS FOR THE NUMBER OF INTERVALS* 
THIS EXAMPLE USES SIMPSON'S RULE FOR INTEGRATION* 



{ 



1 



'BEGIN* 'REAL* A#B*N*X* J#R* SUM* INTEGRAL I 
'INTEGER' K#IJ 
'ARRAY' FClt 10031 

INPUT<60#'C 3C2D*3DBB>*/ ')SA#B#N)1 
•IF' N < 0*0 'THEN' 'GOTO' TVO 'ELSE' 'GOTO' 
20** STARTJ 

START* *Xt»A! 

Rt»SQRT<2*0/3* 141 6); 
Jt«<B-A)/NI 
•FOR' It«l 'STEP' 1 'UNTIL* 100 *D0* 



•BEGIN* FCI3t«R*2*7183t(C-Xt2)/2*0>; 
•IF' X< B •THEN f •G0T0 t NEXT 
•ELSE* •GOTO' TVO I 
NEXT**Xt»X ♦ j; 
r30** •END'l 

TVO**Kt*li 

sumi-fckd; 

ONE**Kl»K* 1 1 

SUMt-SUM* 4*0 * FCK3 ; 

ki-k ♦ i ; 

SUMt* SUM* 2*0 * FCK3 1 
•IF' (CK+D-I) < 0*0 'THEN' 'GOTO* 
ONE 'ELSE* 

Kt-K ♦ i; 
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40** 


SUMf'SUM ♦ FCK3I 




INTEGRAL I* CJ/3*0)*SUM1 




OUTPUT < 61 * • ( • //# • ( ' THE STEPWIDTH • ) • * 




2D*4D#/* f <* THE UPPER AND LOVER. L *)' 




^20D*4DBBBBB>--/5 •< * THE INTEGRAL VALUE •>• 




8BBB3D*4D#/ •)•* J* "B# A# INTEGRAL); 


! 


s END e 




•BOP' 


COD 


LINE 0014 PROGRAM BEGINS 


(01) 


LINE 0047 PROGRAM ENDS 


(01) 


LINE 0047 SOURCE DECK ENDS 


#L0AD#56 




RUN 




RUN 




CHANNEL 


#60-LU6Q#P80 


CHANNEL 


#61«LU61#P136,PP60 


CHANNELjEND 


CHANNEL 
• # 
#60 


#END 




01*000 02 


•000 10*000 



THE STEPVIDTH 00*1000 

THE UPPER AND LOVER L 002*0000 

THE INTEGRAL VALUE 000*2754 



001*0000 



END OF ALGOL RUN 

# LOGOFF 

TIME 8*400 SECONDS MFBLKS 4 COST Sl*50 
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Comments to Example IV , Integration Approximation 

1 A blank line is ignored. 

2 ALGOL uses free-spacing (i.e., there are no 
specified columns in which instructions must fall 
with the one exception of "EOP" 10-14) . 

3 The variable F is declared to be an array 
having 100 locations, F[l], F[2], F[3], etc. 

4 An "IF" statement is used to test the value of 
N. If N is negative the program jumps to line 31, 
where the label TWO is found. If N is positive the 
program goes to the line where the label START is 
found, line 21. 

5 A "FOR" statement is used to set up a loop 
around a "BEGIN", "END". The "IF" statement tests 
to see if the upper limit of the integral has been 
reached. If it hasn't been reached the program goes 
to line 29 where the label NEXT is found. 

6 These lines are a statement of Simpson's Rule 
for Integration: I=J/3 [F (K)+4F (L)+2F (M)+. . .F (P) . 

7 The usage of the break key was made here when 

the typing error,".", occurred. The break key was 

pressed before the carriage return so the " . " was 

not sent to the computer. The OS- 3 control mode 
command GO causes the return back to the program. 
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